home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Magnum One
/
Magnum One (Mid-American Digital) (Disc Manufacturing).iso
/
d3
/
rettig.arc
/
TRSOURCE.EXE
/
NTOD.C
< prev
next >
Wrap
C/C++ Source or Header
|
1990-10-22
|
600b
|
31 lines
/*********
* Function: NTOD
*
* By: Tom Rettig
*
* Placed in the public domain by Tom Rettig Associates, 10/22/1990.
*
* Syntax: NTOD( <year>, <month>, <day> )
* Return: Valid <expD> of <year> plus <month> plus <day>
* Empty <expD> if syntax error
********/
#include "trlib.h"
TRTYPE ntod()
{
double year, month;
long int day;
if ( PCOUNT==3 && ISNUM(1) && ISNUM(2) && ISNUM(3) )
{
year = _parnd(1);
month = _parnd(2);
day = _parnl(3);
_retds( _tr_makedate(year, month, day) );
}
else
_retds( BLANKDS );
}